<%	
  OPTION   EXPLICIT  
  
  Dim   strWebSvcWSDLURL  
  Dim   objSOAPClient  
  
'  strWebSvcWSDLURL   ="http://vir.jxstnu.edu.cn/Jcgl/JcglWebSrv.dll/wsdl/Ijcglsrv"

  strWebSvcWSDLURL   ="http://172.18.8.66/Jcgl/JcglWebSrv.dll/wsdl/Ijcglsrv"
'  strWebSvcWSDLURL   ="http://172.18.8.66:8081/JcglWadSrv.jcgl/wsdl/Ijcglsrv"
  
  Set   objSOAPClient   =   Server.CreateObject("MSSOAP.SoapClient30")  
  objSOAPClient.ClientProperty("ServerHTTPRequest") = True  
  
  objSOAPClient.MSSoapInit   strWebSvcWSDLURL,   "",   "",   ""  
%>